home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Demos / IntelliBots 1.0.1 / IntelliBots / IBots / movslow1.asm < prev    next >
Encoding:
Assembly Source File  |  1995-07-26  |  1.3 KB  |  34 lines  |  [TEXT/IBot]
  1. ;******************************************************
  2. ;TITLE:        MOVSLOW1.ASM
  3. ;CREATED BY:   Intelligent Technologies
  4. ;DESCRIPTION:  Move the IBot until one of the sides of armor
  5. ;              is gone and then self destruct
  6. ;NOTES:        This program was created to act as a training target
  7. ;Name             Date          Description
  8. ;---------------- ------------- -------------------
  9. ;ITI              July 22, 1995 created the program
  10. ;******************************************************
  11.  
  12.     .NAME    "MoveSlow1"
  13.  
  14.     COPR    #CHASSISMOVE,#40    ;move IBot forward 40 units
  15. Loop
  16.     MOVE    #4,R0                ;move value 3 into r0
  17.     COPR    #CHASSISMOVE,R0        ;move IBot distance(r0)
  18. Delay
  19.     GETP    #ARMORFRONT,R1        ;get amount of armor left up front plate
  20.     JE        Destruct            ;Blow up IBot
  21.     GETP    #ARMORBACK,R1        ;get amount of armor left in back plate
  22.     JE        Destruct            ;Blow up IBot
  23.     GETP    #ARMORLEFT,R1        ;get amount of armor left on left plate
  24.     JE        Destruct            ;Blow up IBot
  25.     getp    #ARMORRIGHT,R1        ;get amount of armor left on right plate
  26.     JE        Destruct            ;Blow up IBot    
  27.     COPR    #CHASSISTURN,#1350    ;turn IBot around 3 3/4 times
  28.     COPR    #CHASSISMOVE,#5        ;move IBot forward 5 units
  29.     DEC        R0                    ;subtract 1 from r0
  30.     JE        Loop                ;go to loop
  31.     JUMP    Delay                ;go delay again
  32. Destruct
  33.     COPR    #OFFENSEDESTRUCT,R0    ;destroy this IBot
  34.